home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / XEXEC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  266 b   |  16 lines
  1.  
  2.  
  3. {$IA:BoDecl.pas}
  4. {$IA:Exec.pas}
  5.  
  6. BEGIN
  7.  
  8.    Filedesc := 'TURBO.COM';
  9.    Exec (FileDesc, ComLine, Ecode);
  10.    Write(' Hello from Boosters');
  11.  
  12.    FileDesc := 'BODEMO.COM';
  13.    Exec (FileDesc,ComLine, Ecode);
  14.    Write(' Hello again from Boosters');
  15. END.
  16.